home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freesoft 1997 May
/
Freesoft_1997-05_cd.bin
/
nerecenz
/
network, comunications
/
ZOW
/
INSTALL.FIL
/
SCRIPT
/
PATCHZOC.ZRX
< prev
next >
Wrap
Text File
|
1996-08-26
|
481b
|
23 lines
/* THIS IS A REXX PROGRAM THAT CAN BE USED TO PATCH BUGS OUT OF ZOC */
/* DON'T USE WITHOUT INSTRUCTIONS FROM THE ZOC AUTHOR! */
n.1= 0
n.2= 0
old= 00
new= 00
name= zoc.exe
IF STREAM(name, c, OPEN)=="READY:" THEN DO
DO i=1 TO 2
IF (C2X(CHARIN(name, n.i, 3))==old) THEN DO
CALL CHAROUT name, X2C(new), n.i
SAY OK!
END
END
CALL STREAM name, c, CLOSE
END
/* END - running this should output 'OK!' */